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NN NN TITTTTTTIT 000000 DDDDDDDD AAAAAA PPPPPPPP CCCCCCCC RRRRRRRR cccccccc 

NN NN TITTTTTTTT 000000 DDDDDDDD AAAAAA PPPPPPPP CCCCCCCC RRRRRRRR ccccccce 

NN NN TT 00 00 DD DD AA AA PP PP Ct RR RR CC 

NN N TT 00 00 OD DD AA AA PP PP tt RR RR CC 

NNNN NN TT 00 0600 DD DD AA AA PP PP CC RR RR CC 

NNNN NN TT 00 0000 dD DD AA AA PP PP CC RR RR CC 

NN NN NN TT 00 00 00 DD DD AA AA PPPPPPPP cc RRRRRRRR cc 

NN NN NN TT 00 00 00 ODD DD AA AA PPPPPPPP cc RRRRRRRR cc 

NN NNNN TT 0000 00 DD DD AAAAAAAAAA PP cc RR RR cc 

NN NNNN TT 0000 00 OD DD AAAAAAAAAA PP cc RR RR cc 

NN NN TT 00 00 DD DD AA AA PP cc RR RR CC cece 
NN NN TT 00 00 oD DD AA AA PP cc RR RR cc cece 
NN NN TT 000000 DDDDDDDD AA AA PP CCCCCCCC «RR RR cccccccc eeee 
NN NN TT 000000 DDDDDDDD AA AA PP cccccccc =RR RR cccccccc cece 
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SBEGIN NTODAPCRC,000,NFSNETWORK,<DAP LEVEL CRC>,<LONG,NOWRT> 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
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Facility: RMS 
Abstract: 


This module contains the CRC table for DAP CRC checksum computation 
plus routines related to CRC computation and error logging. 


Environment: VAX/VMS, executive mode 
Author: James A. Krycka, Creation Date: 16-JUN-1979 
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0 } 

6 3: Modified By: 

0 ; 

0 3 V03-007 RASO315 Ron Schaefer 22-Jun-1984 

$8 ; Eliminate tiny data psect. 

000 : v03-006 J£J0028 JE Johnson 11-Apr-1984 

4 : Minor equate cleanup. 

000 ; V03-005 KRM00S4 Malik 10-Aug-1982 

000 ; Removed saleneea ie code from NT$SCRC_LOGERR 
000 3 (now done in NTSEXCH_CNF) & used new NUASTS _NODEBUF 
O60 : and NWA$B_NODBUFSIZ Symbols. 

000 ; v02-004 KRMNO024 Malik 8-AUG-1981 

090 ; ix bugs in NTSCRC. ROGERR. 

000 : v02-003 KRM0023 K R Malik 31-JUL-1981 
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1g 36-1388 2:38:39 tie veR Macro ¥04-00 
=SEP=1984 16:20: RMS.SRCINTODAPCRC MAR; 1 


Add NTSCRC_LOGERR routine to log DAP CRC errors to the 
DECnet Evert Logger (EVL). 


vO2-002 JAK0058 J A Krycka 01-JUN-1981 
wraternti was created from code previously residing in 
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NTODAPCRC DAP LEVEL CRC 15-SEP-1984 93:33:33 ete Macro v04-00 Page 3 
v04-000 DECLARATIONS 55-SEP-1984 16:20:27 CRMS.SRCINTODAPCRC.MAR;1 (2) 

000 67 ~SBTTL DECLARATIONS 
0090 68 
8 69 ; : 

00 70 ; Include Files: 
4 713 

00 ue 

900 7 SDAPPL SDEF ; Define DAP prologue symbols 

it 74 SDAPCNF DEF ; Define DAP peor Saures ren message 

000 75 SDAPCRCDEF ; Define DAP CRC checksum symbols 
0000 ug SEVCDEF ; Define event class symbols 

0000 7 SIFBDEF ; Define IFAB symbols 

0000 78 SIODEF ; Define I0$_ symbols ‘ 
0000 79 SNF BDEF ; Define network function definition symbols 
0000 80 SNMADEF ; Define network management symbols 
0000 81 SNWADEF ; Define network work area symbols 
0000 Ht SRAWDEF ; Define raw event record format 
0000 8 

0000 84 ; 

0000 85 ; Macros: 

0000 86 ; 

0000 87 ; None 

0000 88 ; 

0000 89 ; Equated Symbols: 

0000 90 ; 

0000 7) f None 

0000 Pe s 

0000 93 ; Own Storage: 

0000 94 ; 

0000 95 ; None 

0000 96 ; 
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v04-000 NTSCR BLE - CRC POLYNOMIAL TABLE 5-SEP=1984 16:20:27 (CRMS.SRCINTODAPCRC.MAR; 1 (3) 
-SBTTL NTSCRC_TABLE = CRC POLYNOMIAL TABLE 
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“This is the CRC table for use in DAP CRC checksum computation. 
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: The CRC polynomial function (order 16) used is 
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NTODAPCRC DAP LEVEL CRC os eb 3:53:33 VAX/VMS Macro v04-00 Page 
v04-000 NTSCRC_INIT = INITIALIZE CRC COMPUTATION 5=SEP=1984 16:20:27 CRMS.SRCINTODAPCRC.MAR: 1 
i ! «SBTTL NTSCRC_LINIT = INITIALIZE CRC COMPUTATION 
04 130 ;++ 
Bbe6 ! 1 ; NTSCRC_INIT = performs DAP CRC computation initialization. 
0040 1 ‘ 3; Calling Sequence: 
0040 134; 
0040 135; BSBW NTSCRC_INIT 
0040 136; 
0040 137 ; Input Parameters: 
0040 138; 
tor 139 ; R7 NWA (=DAP) address 
040 140 ; ; 
0040 141 ; Implicit Inputs: 
0040 136 ; 
0040 143; DAP$Q_SYSCAP 
0040 144; 
0040 145 ; Output Parameters: 
0040 146; 
0040 147; RO Status code (RMS) 
0040 148 ; ae 
0040 149 ; Implicit Outputs: 
60040 150; 
0040 151; DAPSL_CRC_RSLT 
0040 13¢ : 
0040 7 3; Completion Codes: 
0040 154 ; ; 
0040 155; Standard RMS completion codes 
0040 156; 
0040 157; Side Effects: 
0040 158; 
0040 159; None 
0040 160 ; 
0040 161 ;-- 
0040 19¢ 
0040 163 NTSCRC_INIT:: ; Entry point 
50 04 0040 164 CLRL RO ; Initially set status to failure 
18 €—1 0042 165 BBC #DAPS$V_DAPCRC,- ; Branch if porter does not support 
0B 28 A7 0044 166 DAP$Q SYSCAP(R7) , 10$ : file level CRC checksum 
OOOOF FFF BF DO 0047 #167 MOVL ODAP PSR 3; Use initial CRC value as first 
20 A 004D 168 DAPS$L eRe CRSUT CA?) ; CRC resultant value 
O004F 169 RMSSUC ; Return success 
05 0052 £4170 108: RSB ; Exit with status code in RO 
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NTODAPCRC DAP LEVEL CRC 15-SEP-1984 23:53:3 AX/VMS Macro V04-00 Page 
v04-060 NTSCRC_LOGERR = LOG DAP CRC ERROR ates Ti 98:39:37 LMS SRCINTODAPCRC-MAR: 1 ’ (8) 
8 17 -SBTTL NTSCRC_LOGERR = LOG DAP CRC ERROR 
82 158 *NTSCRC LOGERR i he DEC E 
: - generates an appropriate message to the net Event Logger 
Be 178 3 TEVL) to 89 the decurrence of a DAP level CRC checksum error. cs 
05 178 : Callin Sequence: 
a03 155 ; . 
005 180 ; BSBW NTSCRC_LOGERR 
005 181 ; 
005 1 ¢ ; Input Parameters: 
Bee i ; 
05 184 ; R7 NWA (=DAP) address 
005 185 ; R8 RAB address 
0053 186; Rg IRAB address 
0023 187 ; R10 IFAB address 
005 188 ; R11 Impure area address 
O38 189 ; Ter 
005 190 ; Implicit Inputs: 
0053 191; 
0053 136 : NWAST_NODEBUF 
0053 193; NWAS$B_NODBUF SIZ 
0053 194 ; 
0053 195 ; Output Parameters: 
0053 +196 ; 
0053 197 ; None 
0053 198 ; : 
0053 199 ; Implicit Outputs: 
0053 200; 
0053 9201 ; None 
0053 soe ; ; 
0053 203 ; Completion Codes: 
0033 204 ; 
005 205 ; None 
0053 206; | 
0053 207 ; Side Effects: 
0053 $08 3 
0053 09 ; An attempt is made to log a DAP CRC error to the DECnet Event Logger. 
Ope $19 : Return status of the request is neither checked nor returned. 
0053 si¢ i 
Ones 21 
005 14 NTSCRC_LOGERR:: ; Entry point 
3F 0 = sa O88 PUSHR #*M<RO,R1,R2,R3,R4,R5> ; Save registers 
One i? ; Get the name of the partner node 
52 0168 C7 90 0055 19 MOVB NWASB_NODBUFSIZ(R7),R2 ; Get size of nodename ; 
53 0169 C7 9E Fs 31 MOVAB NWA$T~NODEBUF (R7) ,R3 ; Get address of node spec List 
OO5F 3 
OO5F $8 ; Build the NFB descriptor, the NFB, the event buffer descriptor and 
OSF 4 ; the event buffer itself. 
ge 
55 0120 C7 9E o7t 7 MOVAB NWAST_TEMP(R7),R5 ; Get address to build event buffer 
85 05 9A 64 8 MOVZBL #5,(R5)+ ; NFB desc count field 


NTODAPCRC DAP LEVEL CRC it tb 4 3:33:33 AX/VMS Macro V04-00 Page 7 
v04-000 NTSCRC_LOGERR = LOG DAP CRC ERROR -SEP-1984 16:20: RMS.SRCINTODAPCRC.MAR; 1 (5) 
85 04 AS pF p67 9 MOVAL 4(R5),(R5)+ ; NFB desc addr field 
a 1c 9 6B 0 MOVB #NFBSC_LOGEVENT,(R5)+ ; NFB 
8 D4 43 1 CLRL (R5)+ : 
> hm ¢ C1 00 ¢ ADDL3 #RAWST_DATA+4,R2,(R5)+ ; Event buffer desc count 
85 O4A OF 074 MOVAL 4(R5),TR5)+ ; Event buffer desc address 
85 FB AS B60 0078 4 MOVW -8(R55, (R5)+ ; Put event count in event buffer 
Bp ee 5 SGETTIM_S - 3; Get the system time 
148 § Fe ca ; Put time in the event buffer 
55 08 CO 008 ADDL2 #8,R5 ; Bump the event buffer pointer 
85 2001 8F BO 0088 38 MOV WEVCSC_VMS_DPC,(R5)+ ; Put in the event code 
85 FF oF 90 008D 39 MOVB he al aaa aie ; Put in the source type 
55 1 ¢O 0091 40 ADDL2 #17,R ; Skip the source ID field 
85 00 BO 0094 241 MOVW  w#EVCSC_VMS_PNOD,(R5)+ ; Remote node name 
85 40 8F 90 0097 6 MOVB #NMASM-PTY_ASC,(R5)+ ; Data type 
85 28 90 0098 4 MOVB ag. (Rare ; Put in the nodename count 
se % 28 009 44 MOVC3 R2,(R3),(R5) ; Put in the nodename 
55 0120 C7 9E QA 45 MOVAB NWA$T_TEMP(R7),RS5 : Get address of TEMP 
54 OD AS 9E OOA 46 MOVAB 13(R5J,R4 
QOAB 47 $Q10_S$ - ; 
00 248 CHAN=IFB$W_CHNL(R10),- ; Use already assigned channel 
QOAB $02 FUNC=#10$_ACPCONTROL,- ; Function code 
QOAB 50 P1=(R5),- ; Adr of descriptor of NFB 
OOAB 251 P2=R4 ; Adr of descriptor of event buffer 
00C7 $2¢ 
00C7 253; ; - 
00C7 254 ; Do not bother to check the return status since we wish to preserve the 
00C7 255 ; original DAP CRC error status in RO (and not the success or fa‘ciure of 
00C7 256 ; our attempt to log it). 
00C7 257 ; 
00C7 = 258 : 
3F =6BA 6(00C7)—s 259 308: POPR #*M<RO,R1,R2,R3,R4,R5> ; Restore registers 
05 00C9 260 RSB : Exit 
OOCA 261 
OOCA 262 - END : End of module 


D 
DAP$Q_DCODE _FLG 
DAP$Q_MSG_BOF1 


NTODAPCRC DAP LEVEL CRC “SEP-1984 23:53: AX/VMS Macro V04-00 Page 
Symbol table "3965 71382 8: :20: 3 tR «SRCIN NTODAPCRC MAR; 1 . 3, 
$$. ortee EP = 0000000 NTSCRC_INIT 000 RG 1 
SSRMSTEST = 2090 1 NTSCRC_LOGERR 09 6 RG 1 
SSRMS_PBUGCHK = 1 NTSCRC_TABLE 000 RG 1 
SSRMS_TBUGCHK = 0000000 NWASB_ALLXABCNT 001 
SSRMS_UMODE = 8 382 NWASB_DAP_RAC 980 
$$T1 = 00 $ NWASB_FILESYS 0000 
DAP$B_DCODE_F ID 000001 NWASB_KEYXABCNT 49 
DAP$B_DCODE_MAC 4d NWASB_NETSTRSIZ 0001 
DAP$B_DCODE “MSG 000001 ASB_NODBUF S12 0001 
DAPSB_DECVER 000004 ASB_ORG 0000 
DAP$B_ECONUM 000004 NWASB_OSTYPE 0000 
DAPS$B_FILESYS OOO RRe SB_RFM $808 
DAP$B_OSTYPE 000004 NWASB_RMS_RAC 000 
DAP$B_USRNUM 000004 ~BLN 0008 
DAP$B_USRVER 000004 NWASK~BLN 0008 
DAP$B_VERNUM 000004 NWASL~ALLXABADR 0001 
DAP$B_X_ FIELD 000002 NWASL_DATXABADR 0001 
oA -BCN 00000C NWAS$ 0000 
BLN 00000C NWASL_FHCXABADR 0001 
DAPSK™ CRC_INIT OOOFFF NWASL_KEYXABADR 0001 
DAPS$K_CRC_TBLO 44 4 NWASL_MSG 0000 
DAP$K_CRC_TBL1 00053E NWASL_PRORABADR 0001 
DAP$K_CRC_TBL OOO0A7C NWASL_RDTXABADR 0001 
AP$K~CRC~TBL 000F 42 NWASL-SAVE_FLGS 0001 
DAP$K_CRC_TBL4 0009D8 NWASL_SUMXABADR 0001 
DAPS$K_CRC_TBLS OOOCE6 NWASL_THRE 0000 
DAP$K_CRC_TBL6 O003A4 NWASL_XLTATTR 0002 
DAP$K_CRC_TBL? 00069A NWASL_XLTBUFFLG 0002 
DAPSK_CRC_TBL8 000E90 XL 0002 
OOOBAE 0002 
0004EC 0002 
0001D2 0002 
000748 0001 
000276 0000 
000D34 0000 
00080A 0002 
00000 0000 
00000 0001 
00000 0002 
00000 0002 
00000 0000 
00000 8 1 
00 
06 
0 
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10$ ACPCONTROL 
NEBSC _LOGEVENT 
NMASM_PTY_ASC 
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NWA 
NWASQ_ “SAVE DESC 
NWASQ_XLTBOF1 
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5 
NWAST_ITM_MAXINDX 
NWAST_ITM-STRING 
NWAST NCBBUF 
NWA$T_NODEBUF 
NWAST_RCVBUF 
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Symbol table -SEP-1984 16:20:2 RMS.SRCINTODAPCRC.MAR; 1 (5) 
NWAST_SCAN 00001 
TEMP 0 158 
NWAST_XLTBUF 1 00002AC 
NWAST_XLTBUF2 $08 A 
NWAST _XMTBUF 00003C 
NWASW_BUIL 00000D 
NWASW_DAPBUF S17 OOOOOCA 
NWASW_DIR 4 Sit 
NWASW_DISPLAY 000000D 
NWASW_FIL QOOO00CE 
NWASW_JNLRABJOP QOOO011E 
RAWSB_SRCT SOO n TE 
RAWSC_SIZ 000001F 
RAWSK_SIZE 000001F 
RAWST_DATA QOOOQO0O1E 
RAWST_SRCID 0000000D 
RAWST_SYSTIM 00000002 
RAWSW_BYTES 00000000 
RAWSW_EVTCODE 0000000A 
SYSSGETTIM eeeeeeee GX 01 
SYS$Q10 eeeeenee GX 01 
Se ee mem ee Sa 
: Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
. .; 00000000 ( 0.) 00 ¢ QO.) NOPIC USR CON ABS~ LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
NF SNE TWORK QOOOOOCA (¢ 202.) O1¢ 1. PIC USR CON REL &3L NOSHR EXE RD NOWRT NOVEC LONG 
S$ 00000800 ( 2048.) 02 ( ) NOPIC USR CON ABS LCL NOSHR' EXE~ RD WRT NOVEC BYTE 
oo Sm em ee eee 
; Performance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization 34 00:00:00.10 00:00:00.95 
Command processing 161 00:00:01.15 00:00:06.08 
Pass 624 88:90:68" 49 ss 6 4 
Symbol table sort 0 00:00:03.37 00:00:06.64 
Pass 2 84 00:00:03.18 BO: 88 208-38 
Symbol table output 19 800: 0005 i ete 
Psect synopsis output 3 :00:00.03 3: 700.16 
Cross-reference output 0 Bon 80° be 0 +80: 99-90 
Assembler run totals 928 00:00:30.0 00:01:23.91 


The working set Limit was 1650 pages. y : 
114649 bytes_(224 pages) of virtual memory were used to buffer the intermediate code. 
There were 130 pages of symbol table space allocated to hold 2403 non-local and 2 local symbols. 
see source Lines were read in Pass 1, producing 13 object records in Pass 

5 pages of virtual memory were used to define 24 macros. 
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VAX-11 Macro Run Statistics 2 at $3 :33:33 RMS. SRCINT 0D DAP Sere BAR: 31 _ (8) 


ee 


Macro Library name Macros defined 

RSET SYS.OBJJL1I8.MLB;1 2 
$255$D age: Sint eievebEE A -MLB;1 0 
Ett : LSHRLIBIJEVCDEF .MLB; 1 § 
$255$DUA28: (RMS .OBJJRMS.MLB; 1 

S58e$DUA 8: SYS IBISTARLET. MLB; 2 9 

Terace (all Libraries) 20 


2635 GETS were required to define 20 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:NTODAPCRC/0BJ=0BJ$:NTODAPCRC MSRC$:NTODAPCRC/UPDATE=(ENHS :NTODAPCRC) +L 1B$:RMS/L1B+SHRL IBS: EVCDEF /LIB+SHRLI8$:NMALIBRY 
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